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jFiresiide chat 



Ok, all you Unknown Programmers* your time 
has come! At the April meeting we will hold 
our first MACE Amateur Night* Bring along 
your material (disk only) and show us what 
you've done* If anyone happens to own a gong^ 
you might want to bring that^ too! This event 
will be open to members only* 

In March we will again have Dave Heinrich 
from The Family Computer Center available to 
answer your questions* Family is our local 
"Authorized Atari Service Center" and they 
were nice enough to agree to hold a Q & A 
session for the benefit of our members* So jot 
down your questions* whatever they may be# 
and bring 'em along to the March meeting* 

I talked with Gary Nolan tonight* He's the 
President of Mil-Atari* a user group in 
Milwaukee* Wisconsin* They are attempting to 
organize 'Taricon 85! He was telling me about 
the contacts he's been trying to make* Seems 
the vendors don't want to respond until they 
see what Atari is going to do and it seems 
Atari's pledge to support user groups has 
slipped their minds* As usual* Atari hasn't 
returned their calls* I'll keep you posted as I 
learn more from Mil-Atari* 

I hope everyone enjoyed Swap Night and I 
think we'll do it again soon* However* we will 
need a few volunteers to help organize it* If 
you're interested see any of the officers 
during the meeting* Advance registration and 
MACE membership numbers will be required* 

Well* the Happy group purchase is over* The 
cut-off date was 01/15 and* unfortunately* 
orders received after that date will be 
returned* The OSS Tool Kits are here also and 
by the time you read this the Indus drives 
should have arrived* Watch for more group 
purchases in the future* One more word about 
past & future purchases? the cut off date is 
real* Orders are made the day after and we 
can't be responsible for late arrivals* Also* 
you MUST be a member! 

'Till next month**** 



MARCH 19th 

The March meeting is being billed as Expert 
Night* featuring Dave Heinrich of the Family 
Computer Center in Berkley* Dave will be here 
to answer your questions about the Atari* so 
come prepared* His presentation at the 
January meeting was well received* this 
should be another hit* We are also expecting a 
short demo of Omnimon* 



APRIL 16th 

As Kirk noted* April's meeting will give 
MACE'S programmers a chance to show off 
their favorite programs (disk only* please)* If 
anyone has a large gong available*** 

The schedule of meetings for the rest of the 
year is* 

5/21 6/18 7/23 8/20 
9/17 10/15 11/19 12/17 

Tables will open at 7*00 pm* The actual 
meetings will start at approximately 7*30 pm* 

The MACE Journal is published monthly by the 
Michigan Atari Computer Enthusiasts* Unless 
otherwise noted* material published in the 
Journal is in the public domain and may be 
reproduced for private or user group use 
providing proper credit is given* 

Submissions to the Journal can be mailed to 
the PO Box* uploaded to the MACE BBSs or any 
officer's BBS* or uploaded directly to the 
editor at (313) 646-4455* Where possible* 
submissions should include a disk or tape file 
in AtariWriter or similar format and a working 
copy of the program* Specify format for screen 
dumps (AtariArtist* Koalapad* etc*)* Authors 
whose submissions are published will receive 
a certificate good for a free disk or tape from 
the MACE library* Deadline for submissions 
is the first of each month* 



Kirk 



LOA2SI AKCORTIZATIOlSt 

by Russell Crum 



With long term loans today frequently 
involving more than one interest rate^ I 
recently needed to reprogram an old 
amortization program which I had written some 
time ago* I think many readers will find this 
program useful with this feature* 

The program allows up to four different 
interest rates in its calculation* The period of 
time that each rate is valid for as well as the 
total duration of the loan must be provided* 

The output of the program is to a printer* The 
printout provides payment number^ year of 
each payment^ cumulative interest for the year 
and loan balance* This information is very 
useful in preparing tax estimates as well as 
evaluating alternatives on loan terms* Since 
it provides a complete amortization schedule^ 
printer output is almost essential due to the 
length of the data output* A screen display 
could be used (with suitable program 
modifications) and the display stopped and 
started (press CTRL-l) to view the output at 
intervals* 

The printer initialization in line 60 is to set 
the skip over perforation feature on the 
GEMINI lOX printer* If you have different 
printer codes^ change this line accordingly* 

Several lines in the program make use of 
coding available in OSS's BASIC XL and not in 
Atari BASIC* Line 30 sets up a format 
statement to use with the PRINT USING 
statements in lines 230 and 330* If you don't 
have BASIC XLt these lines will have to be 
altered by using appropriate syntax to 
position the output in columns* (See " Your 
Atari Computer " by Lon Poole* Chapter 4)* 
Lines 100 and 170 also contain BASIC XL's 
prompted INPUT statement syntax (e*g* INPUT 
"prompt"* variable)* These are easily altered* 
if needed* to traditional Atari BASIC* 
Another BASIC XL feature can be seen in lines 
400-430 in the concatenation of strings* This 
construction is A*=A$*"additional text" rather 
than Atari BASIC'S A*(LEN(A$)+1)=" "• A final 
feature that I really like about BASIC XLJ 



notice the "nice" line numbering* You don't 
really think I wrote this program without 
having to insert odd line numbers* do you? 

The formulas used to calculate the payments* 
interest and balance may be found in numerous 
textbooks on this subject* This program has 
proven to be very useful and easy to use for 
my own applications* I think you will find it 
useful also* 

■^f* ""if* "5f> tJ* "Ht* "^f* "Hh" "if* ^* "if* 1£j> ^f> '!tf> 



10 REM LOAN AMORTIZATION 

20 REM R. CRUM, OCT. 1984-USE BASIC XL 

• 30 DIM A*(760) ,TC$(80) ,R(4,2) :TC*=" 

*#«» ####.## 
««#«».»# #«««««.«#" 
40 GOTO 390 
50 REM PRINT HEADER 

60 OPEN #7,8,0, "P:":? 1»7;CHR$ (27) ; CHR$ 
(82) ;CHR$(4) ;CHR*(27);CHR$(78) ;CHR$(4) 
70 ? #7;TAB(38) ;Y:Y=Y+1:? #7;TAB(i0);" 
PMT NO " ; TAB ( 2 1 ) ; " PAYMENT " ; TAB ( 39 ) ; " CUM 
INTEREST/YEAR" ;TAB(66) j "LOAN BALANCE" 
80 ? #7 
90 E=0: RETURN 

• 100 ? CHR»( 125) 2 POSITION 10,0:? "LOAN 
AMORTIZATION": INPUT "ENTER LOAN AMOUNT 

»,V 

110 INPUT "ENTER NO. OF MONTHS OF LOAN 
",N:F=-N: INPUT "ENTER MONTH NO. OF FI 
RST PMT, e.g. JUNE-ENTER 6 ",A 
120 FOR 1=1 TO 4;? "ENTER INTEREST RAT 
E FOR PERIOD ";I;" IN X/YR. ";: INPUT R 
<I, 1) :R(1, 1)=R(I,1)/100 
130 ? "ENTER NO. OF MONTHS FOR RATE "; 
I;: INPUT R( I ,2) : Z=0: FOR K=l TO 4:Z=R(K 
,2)+Z:IF Z=N THEN POP :GOTO 150 
140 NEXT K:NEXT I 

150 FOR J=2 TO 4: IF R(J,2)<>0 THEN R(J 
,2)=R(J,2)+R(J-1,2) :NEXt J:GOTO 17© 
160 POP 

• 170 INPUT "ENTER YEAR OF FIRST PAYMENT 

•,Y 

180 I=R(1, 1) :H=VI(I/12)/(1-(1+(I/12) )'^ 
F) : H=INT (H« 100+0. 5) / 100 
190 ? CHR*(125):? "WHEN PRINTER READY, 
PRESS 'START'": POKE 53279,8 
200 IF PEEK (53279)06 THEN GOTO 200 
210 GOSUB 60 

220 D=V:H=INT(H«100+0.5)/100:FOR B=l T 



0 N : C--=D* (1/12) :C=INT (Cll00+0,5) 7100: D- 

230 ? #7; USING TC$,B,H,E,D 

240 IF D=0 THEN CLOSE *7:P0P sEND 

250 IF A-INTiA/12) tl2«0 THEN 7 mtmm 
B 70 

260 A=:A-H 

270 IF BaR(l,2) OR B«R(2,2y fJR ««R(3,2 
> THEN GOSUB 350 - 

280 IF H>=D+DI(I/12) THEN POP :60T0 31 

0 

290 NEXT B 

300 END 

310 REM LAST PAYMENT 

32« C»D«(I/12) :C=INT(Ctl00+0.5)/1005H= 

D+Cs E-C-»-Et B-B+ li D«l)- (H-C) 

330 ? #75 USlNi TCf , B , H , E , D : CLOSE #7 

340 END 

350 IF B>=R(l,2) AND B<Rt2,2) THEN I=R 
(2,l)reOTO 380 

360 IF B>=R(2,2) AND B<R(3,2) THEN I=R 
(3, DsSOTQ 380 

370 IF «>«*<3,2) AND B<R(4,2) THEN I=R 

<4, 1)^ ■" ^ ' ' '''''' - --?^>---.^-- 

380 H=D$(I/12)/(1-<1 + (I/12))''^-(N-B)) :H 
»INT(HtlW*«r.SI /l##s RETURN 
390 A$="Thi5 program computes loan pay 
ments ami prints an amortizintion scheii 
ttle. It can haniilt four different* 

- 400 A$=A$," interest rates for four di 
fferant periods of the loan. You will 
be asked for the loan amount," 
410 A$=A$," number of months for the 1 
oan, interest rate, number of months f 
or each rate, number of the month" 
420 A$=A$, " payments begin, and year o 
f first payaent. The resulting table g 
ives payment no., payment amount" 

• 430 A$=A$,", cumulative interest /year , 
and loan balaivcfe for each year of the 
loan. A printer is required!" 
440 ? CHR$(12!5) :FOR 1=37 TO LEN(A$) ST 
EP 37: FOR J=0 TO 37 
450 IF Atd-J, I-J)«CHR» (32) T«EN 470 
460 NEXT J 

470 ? A$(I-36,I-J):I = I--J:IF (1+37) >LEN 
(A$) THEN POP :60T0 490 

480 NEXT I 

490 ? A$(I-H):? :? "PRESS 'START' JO C 
ONTINUE-sPOKE 53279,8 

500 IF PEEK (53279)06 THEN 500 
510 GOTO 100 



Jieviewed by Cliff Siskin 



Although Dragon Quest is a local product 
available from a Bloomfield Hills address^ it 
is currently being advertised nationally ip 
Antic magazinet The programs's small-time 
origins are evident in a variety of bugs, 
ranging from numerous misspellings in the 
manual and on the soreen to contradictions 
between that manual and actual play (100% 
Wounds=Dead vs» 100% Wounds=Healthy) to 
screen displays that vanish before they can be 
read (the listing of your valuables available 
upon exiting the caves) to an "X" command that 
does not return you# as advertised, to an 
earlier part of the programt Surprisingly, none 
of these many, but essentially minor, errors 
ruin Dragon Quest; it is a challenging and 
enjoyable example of the Dungeons & 
Dragons-type "real timei afii^m^ graphics 
fantasy adventure*" 

Upon booting the program with BASIC, you 
enter a "Character Managetmnt BtG^m^ m 
which you build a character from core 
combinations of strength, dexterity, 
intelligence* goldf and weapons randomly 
generated by the computer* You select the 
race (human - for intelligence, dwarf - for 
strength and durability, or elf - fcr slciU to 
archery), name, and sex of your adventurer* 
Programmer Matt Pritchard has, admirably, 
made sure that "if a character is female*^jiihe 
will be every bit as capable as a man but the 
scenario is changed so that Prince Anton,* 
rather than Princess Anarea, must be^scued* 
A variety of characters can be stored on the 
program disk to be reviewed and used in 
different dungeon setups that can themselves 
be saved and reused in order to avoid constant 
remapping ♦ Before leaving the character 
program for those dungeons, however, be sure 
to view the "Instructions" option* It tells you 
how to adjust the colors and brightness of the 
screen, program the joystick button for use of 
a particular weapon, press the proper keys for 
the remaining weapons, heal wounds, open 
treasure chests, look for secret doorf# and 
even, if all hope is lost, commit suicide* 



You may very well find yourself facing that 
final cation many times and very quickly» for 
this is no easy quest* Your first task upon 
entering the "Game Play Program" is to 
negotiate with the honorable aiiri;;hant Amad 
Ripuoff for weapons and healing potionst TW« 
process has been very cleverly programmed^ 
requiring that you experiment ami persevere 
with a variety of bargaining tactics in tMTdfr to 
secure the most protection for your money* 
You will need all tbat you jcan g^tt for 
monsters lurk everywhere m Mni cavMt fi^g 
you little rest* In factt it is a good idea to 
save yoi«ri character (and your dungeon) after 
the bargaining is completed m& that if you 
meet your end quickly you will not immediately 
have to repeat your, session with Mr* Ripuoff* 
Having taken that precaution > press the 
numeral "0" ( not "O") to enter the first cave* 
you mmt fjA4 the secret door leading 
back to the marketplace^ for if you fail to do 
so the treasures that you are about to 
cUsGAver cannot be used to replenish your 
arsenalf ^ 9imm ^fwr iiSiMNKlMr 
fewer weapons than there are monsters* 
numerous returns, we required* Returning 
after dMttii is an easy but tecttous procaess 
requiring pauses as your character is reloaded* 

Movement within the caves» by keyboard or 

joystick* is sufficiently smooth and swift as 
are the battle movements* All actions are 
played out in primitive but dear graphicSf 
consisting of the walls of 115 variably shaped 
rooms* mushroom-like treasure chests* and 
smaU -Apirss represmting you and the many 
monsters stalking the corridors* Descriptions 
of yoAir status (wealth* weapons* wounds* and 
es^mnliiffi points earamd by time in the caves 
and suocessful battles) are continuously 
displayed and updated* When monsters appear 
thmr names and strength levels are provided* 
The variety and complexity of your 
"negotiations" with these adversaries is as 
cdiaUmipi^ and as ple»ai^ #s ym^ wmmmtmm 
with Mr* Ripuoff* Pritchard's programming 
efforts clearly outclass those found in more 
well-kneMi ^mest such as Morloc's Castler Jby 
more prestigious companies* such as Epyx* 
Using the magic spells found in treasure 
chests is partia4arly entertaining* One of 
them* for example* entraps any monster^ but 
one of your victims can still hurl a deadly 
fireball from inside his magical prison* 



As of this writing* I am a rather accomplished 
warrior who has not yi^ jMstered the art of 
''looking" for secret doors* Heittter nyiMtai 
nor my female character has rescued its 
counterpartf but I look forward to doing so! 
Dragon^QueiN^ is m gmmm in wtuich fnm^NiAim 
does not outweigh the lure of new surprises* 
If you are familiar with adventuring and know 
t^t you W4^t to play this tyqfNt of gam% then 
Dragon Quest is a worthy choice even at a 
price ($24*95) that is high for this time of $100 
cxMnputerst 

Those MACE members who are not that 
familiar witfc adventuring or who are conAistMl 
by the present proliferation of adventuring 
software should consult recent articles in 
Familv Computing and Compute! magazines* In 
the January 1985 issue of the former* awards 
are given to the "Best Games of the Yeiur" 
with the adventure genre subdivided^ kite wch 
current forms as "role-playing"* 
"arcade/role-playing"t "text-only" and. 
"text/graphic^'' Tim lyrtides m tte <ktober 
1984 issue of Compute! ("Is a Picture Worth a 
Thousand Words?" and "A Parser's Tale")* 
explain the differancBS betwiMn these types 
and how some of them work* Finally* any 
potential purchaser of one of these games 
should recngnize that within the past few 
months an exciting alternative to playing 
somebody else's game has arisen* companies 
such as Codewrit^t CBS Software^ Electronic 
Arts* and Spinnaker have all issued programs 
that allow you to construct your own 
adventures* Although relatively primitive 
constructions sets have been previously 
available at the user-group level* these 
cxmfiiercial forts f^omsm new levels of 
control ov«r graphics and scenario complexity* 
For those attracted to the power of 
metaquesting - the quest to make a quest - 
Dragon Quest may still be a desiradile 
purchase* not only for its own playability but 
also for the idea^ for future play it may 
tni^iire* 

Dragon Gkiest 
Midwei^ Computing 

4975 Brookdale 

Bloomfield Hills* MI 48013 

(313) 645-2140 

Requires 32K and disk drive 

$24*95* 



-5- 




To reduce our readers' eyestrain* we have 
aitop^ted a special method for listing prograM^ 
Programs will be listed in 38 column format* 
and certain characters will be replaced by an 
aMir#vii^«d form erf ttMNir fufiction» printed 
within turly braces (see below)* Any 
characters to be typed in inverse video wil] be 
underlined! and control characters will be 
represented by their respective letters within 
curly braces* If a character within braces is 
also tpnderlinedf toggle the inverse video on 
and then hold down the control key while 
typing the character* 

This method may seem awkward at first* but 
you should quickly get used to it* and the 
listings mill be much easier te read* The 
special characters which will be spelled out 
are as follows* 



Nhm ijou see* You should t^e* 



cairn 


ESC SHIFT < 


my 
amy 


ESC CTRL - 
ESC CTRL » 

ESC em. -i- 


<RIGHT> 


ESC CTfa. t 


{BACK S> 


ESC DELETE 


<DELETD 


ESC CTRL DELETE 


ONSERD 


ESC CTRL INSERT 


ONS LDO • ' 

amy 


ESC SHIFT DELETE 
ESC SHIFT INSERT 

ESC TAB 


CCLR 


ESC CTRL m 


<SET my 


ESC SHIR TAB 




ESC CTRL 2 


<£SC> 


ESC ESC 


<£!smy 


CTRL t (ctMf«) 


<PERIOO> 


CTRL . (period) 


CSEKI-CaLQN> 


CTRL } (seHi-coion) 


{SHIFT «> 


SHIFT = 



If yiM see! Ttipe* 

<A> CTRL A 

A DM* VIDEO A 

{A:> DW* video CTRL A 




Tri-Cities Atari Gftmp 

The date, April 4, 1492* The King has granted 
you 2,000 gold pieces for your voyage* You 
thmk^ tim ,^ and move on* 

Your first stop is the RUb a short rest anit 
a drink, then home to say goodbye to your wife 
and have one more look at that map* Nextr you 
go to the Oi^fitter to purdiase yotir sM^f 
crew, food, and trading goods* Finally it's off 
tcr the shipt You set sail and wonder if it's all 
worth it* Kill yo#^^^ fiW fri^ 
natives, or fierce storms and danger? 

That is the typical scenario of Etm^rm^ Arts' 
newest game, SEVEN CITIES OF GOLD* All of 
the action is shown on a scrolling hi-res 
graphics screen witti tots €»tor^- Wfcen you 
start to sail, the screen changes and you see a 
Mindfw in the center of the screen which 
sh(i^ ^(rtiere you are* Around ttie edges w 
information about food, men, the date, depth 
of the water or type of terrain and other 
related items* 

When you encounter land, you send out an 
expedition* This can be of as many mm^ you 
like, carrying anything you choose from the 
ships* On these expeditions, you explore the 
land in search of gold and encounter natives of 
different tribes* You can trade with them, or 
you can conquer them* Some tribes are tougher 
than others, though* Hhmc^yey trade^ you c^n 
get gold, food, other natives to explore with 
you and maybe even set up a mission* You can 
even establish a fort ir^ tlie New Horld* In 
this game you can use a historical map of the 
world as it was in 1492, or the computer will 
create a map for you ufon^i jNiiiKial 
geographical laws contained in the program* 

All things considered^ this game is lots af fun* 
There is only one thing I dislike about it* 
When you go into a native village, if you bump 
into the natives^ you kiU them* And 
sometimes it seems like they are trying to be 
killed because they walk right in front of you* 
lim^m Mm msk M lm4B to explore out there# 
so get yammm^Mgi0^mrl 
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Emy PriiKt UkouM! 



SAVE UF> 



O 50% 




ECTOR 



RELEASE THE MAGIC 
ZN YOUR COMPUTER! 



UEsena 





INTERNOTIOMOL 



ONE 



A 

ATARI 



HAXI. ORDER 

37220 TRICIA DRIVE, STERLING HEIGHTS 
ORDER INFO. Phon»: 313-978-2208 9aM 



313-97S-8087 MnOI 24 HOHRS, NEW: f 



AilOD835T(T) TEIMIIIM. - 839/1030 
ElUi502 (I) FOR NOVICE ASSEHKY 
EIIMN2 IT) iW MIUi lHBILV 
ETMKR II) m 139/1030 MIBB 
NCNODEN (I) TERNINM. FOR NCC-Wl 

mum u) m-iimti mum 



19.00 
10.00 
13.00 
19.00 
19.00 
11.30 



MI. 48077 
- 7pm. 



GEMINI 




ATARI CONFUTES NttlVARE. PRODUCTS 



CATI 

ATARI 
63XE 



Toir Prict 



HARSVARE 
HONE COMPUTER 



64K RAN SPRIN6 



520ST 
600XL 



1200XL 
850 
1010 
1021 

1025 
1027 
1050 

CX31 



HONE CONPUTER 
HONE CONPUTER 

NME OHnnB 

HOME CONPUTER 



512ICRAN SUMMER 
16K RAN 69.94 

64K RAN 119.94 
5 INTERFACES IN Oie iWIT 119.94 
PKIfiBAN RECORKR 39.94 
40 mm PRWT /PLOTTER <f .94 
80 COLUMN MATRIX PRINTER 189.94 
80 COLUMN LETTER PRINTER 259.94 
IISK lUlf «ITH NS 3.1 179.94 
TOUCH TARET 44.94 
ATARI I/O CABLE 5 H. 12.94 
I k f MQIUTOR CAHi 26.67 

21.97 
26.67 
26.67 
IkM 
26.67 
3.15 
14.40 
19.31 
15.38 



PRINTER CABLE 
CX87 INTERFACE/MODEH CABLE 

CX89 COLOR NONITOR CABLE 
CA014746 TV SHITCH BOX 
CAA14748 PaMB AIAPTOR 

CA016791 pom mm m 

CA017964 POKR ABAPTOR 400/800 

ATARI ACCESSORIES 

BX4201 ATARI 3-RIN6 BINDER 

BX4202 1025 RIBBON 

BX4204 1020 PEN PACK (4) COLWS 

BX4206 1020 FBI PACK (6) BLACK 

BX4207 1020 PRINTER PAPER (2) 

BX4208 ATARI LOOO NANUALS 

1X4212 1027 IK ROLLS 



HARDUARE FOR ATARI AMI OTHER CONPUTERS 
CATI Toir Prict 



OTHER PROMTS FOR YOUR CONPUTER 

AT-13-6 I/O CABLE FOR ATARI Aft. 15.00 

ir-S2*A 9M» 19 PH BUBUM A* M.I3 

AT-5212 5200 15 PIN EXT CORB 12' 14.17 

AT-F-13 FENALE PIN ATARI 10 PLUS 2.50 

tfHHS mi PU AURI M SOCin 2.90 

CI 14016 ATARI CABLE 890 -IK A' 2A.14 

C115016 ATARI 850 TO EPSOM 6' 25.50 

C220016 ATARI 850 TO HAYES A' 19.93 

BE-9ii 9PmM8i 1.19 

BE-9P 9 PIN PLUS (NALE) 1.59 

BE-9S 9 PIN SOCKET (FEMALE) 1.93 

IA-19ii 15PUIHHH 1.3A 

IA-13P 13 PIN PLUS 2.27 

DA-15S 15PINS0CKn 2.79 

li-25H 29PUH00i 1.41 

n-29P 23PnPlH 2.60 

BB-25S 29PiNS0CXn 3.49 

DB3600 CENTRONICS 36 PIN NALE 6.60 

Um CENTRONICS 3A PU FEMALE 7.07 

HCRON HAYES CRONOGRAPH 199.94 

HSN300 HAYES SNARTNOBEN 300 199.99 

mam hayes snartmibi 1200A 479.9s 

mm LEmm mRix pRmn iiv.94 

NC24701 NALE - NALE 25 PIN 3' 17.07 

NC25201 FENALE-FENALE 25 PIN 3' 17.07 

MPP-MOOE MHEM Wn SNARIERN 109.97 

4.58 NPP-1150 PRINTER INTERFACE 69.33 

2.97 NPP-1150XL FOR 1200XL ONLY 69.33 

2.90 NPP-11S2 2K BUFFER FOR NPP-1190 14.67 

2.90 NPP>1196 SERIAL ANPT. FOR 1190 41.25 

3.90 NPP-PRT NICRO-PRINT INTERFACE 59.98 

26.50 SAFT200 200 UAH STANDBY POUER/A 388.24 

3.88 8AFT400^40» «ATT SIANHY P8HER/A 9^.24 

1200XL WITH BASIC, 1020 PRINTER, 
1050 DISK DRIVE «369.82 V/ALUE. . . 




6ENINI ELECTRONICS ACCESSORIES 



CAT8 

Video 

veiso 

«I1S1 

vei52 

V6153 

vei54 



Voir Prict 



vei60 

V6161 
V61A3 

V61i6 
V6167 
V81A8 
V6169 
V6170 
V6171 
V6172 
V6173 
V6175 
V017A 
V8177 
V8178 
U81S1 



Sms/Coipttter Accessories 
JOYSTICK REPL. CABLE 56* 
NNfiOlilf. CAUtr^ 
JOYSTICK EXT. CABLE 20' 
T.V. CABLE RCA PLU6S 12^ 
JOYSTICK 'V' AIAPTER 
JimiCK NANBLE BALLS 
9 VOLT 500 lA AC ABAPTER 
UNIV. 900 lA AG ABAPIQ 
ATARI MOO SANE COVER 
IMTELLIVISION 6ANE COVER 
Cn.ECO SANE OUST COVER 



V6183 
V618i 
V6301 
V6302 
V6303 
V6304 
Ve309 
V63C6 
V6310 
V8312 



VAR. SPED RAPID FIRE 
ATARI TYPE JOYSTICK BOO 
KLUXE JOYSTICK 400/800 
ATARI fc C64 PMBLES PR. 
TUO BUTTON JOYSTICK 2600 
300 oki SANE/TV SHITCH 
300/79 oli 6ANE/TV SS. 
300 ohB 2 SANE/TV SWITCH 
300/75 oki 2 6ANE/TV SH. 
JOYSIICX RBI. PC BOARD 
COMPACT JOYSTICK GENSTII 
JOYSTICK UITH KEYPAD 
INTELLIV. JOYSK. HANDLES 
6 OUTLET STRIP U/PROTECT 
6 OUTLET BOX U/PROTECTOR 
C00LIN8 FAN fc 2 OUTLETS 
V0LTA8E SPUE SUPPRESSOR 
JSYSK r MAPTER lAPPLE) 
JOYSK Y ADAPTER IT. I.) 
5 PIN DIN-4 RCA PLU6S 6' 
0 PIM DIN-3 KA PLH6S 6' 



1.98 
3.9S 

5.00 
3.68 
3.83 
2.29 
6.14 
7.68 
S.AS 
3.68 
3.68 
3.68 
7.68 
5.97 
8.4A 
12.23 
6.75 
2.54 
3.4A 
2.91 
4.14 
1.68 
5.06 
13.66 
1.52 
24.34 
13.83 
34.15 
3.83 
9.91 
5.37 
3.77 
6.14 



299.95 



I^OOO MAZE mM 

by Bob Pett^apiece 



I really enjoyed the Logo Maze Construction 
Set by Buth Gorishek in the December 
issue of the MACE Journalt However^ like 
many others I decided to revise the program as 
I typed it in and ran iU Below are the 
revisions and « bfi#f ex|ilafiation in bradcets 
why they were included* [Do not include the 
comments in the program!] 

TO START 
GO 

MOVE 
END 

[I decided to use a more universal way to 
start the game*] 

CS HT ' ' . 

WHEN a CHT PU PLAY] 

MAZE 

END 

TO FINISH 

SETPNO 
LT90FD20 ~ 
PUHT 
END 

[TO BUILD was added to sta^rt the 
construction of the maze and to take the WHEN 
d^mon put of the TO FINISH procedure* This 
prevents a recursive procedure from playing 
the song twice*] 

TO MOVE 

ST 

MAKE "CHAR RC 

IF {CHAR » CPL0D3 

IF ICHAR = '•* CPLOD.R] 

IF :CHAR= "+ CPLOD.L] 

IF JCHAR « CPLOD,B] 

IF JCHAR = "S CTS CT ST0P3 

MOVE 

END 

TO MAZE 

FS PD SETPN 1 

MAKE "CHAR RC 



IF K:HAR = "- CAHEAD] 

IF tCHAR s "+ I:AHEAD.L] 

IF :CHAR = "* [AHEAD.R] 

IF iCHAR s "» [AHEAD.ERASE] 

S^ JCHAR = "F CFIMISH SS STOP] 

IF JCHAR = "L CAHEAD.LERASE] 

IF iCHAR s "R [AHEAD«RERA3FJ 

MAZE 

END 

CTO MOVE and TO MAZE were changed to use 

the arrow keys to move the turtle and to make 
the maze> The arrow keys are Qgt usedjtfith 
the famtrol key» as is normally done*] 

TO PLAY 

B A G A B PART B PART B REST 
A PART A PART A REST ' 
^ B PART B PART B REST 
B A G A B PART B PART B REST 

A PART A B A G G 
WHEN 0 [ ] 

CT SS ^ CPRESS "S" TO STOPi 

CTO PLAT has not changed its tune* but the 

WHEN demon is turned off here (WHEN 0) so 
the song is not played twice« I also added a 
printed Mssage to tell fiMpte what ta do in 

order to stop.] - 

If you have already entered the program* these 
changes will be fairly quick to ^ using tlie^ 
Logo editor. Have FUN*! ' 



MACE tJJStCLASSIFIEOS 



Stan Rowland has gronked his copy of the 
Reporting Disk from an old Atari software 
package called The Bookkeeper Program* If 
anyone has a copy of this disk* please give him 
a call at (313) 243-3450* 



Mm^ mx M^i 400 with ,SASIC cartridge* 
Tickets will be on sale (50 cents each or 3 for 
a dollar) at the February and March meetings* 
The winning ticket will bejctr*!fl(n at the March 
mim^nn^ Yms nemd not be prwent tn rwiib 
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THE SHSI^X. GAMM 

CRACKING ATARI LOGO 

by Ann McBain Ezzell 

If you have ever wanted to put tnt on ycNjr 

Logo screens^ this month's column is for yout 
I'm not talking about dinky little Graphics 0 
stuff at the bottom of the screen; I'm talking 
about bigt bold Graphics 2 characters* with 
three colorsi and normal and inverse yideot 

To understand how these procedures work* you 
have to know a little about how the Atari 
j^^res its characstiHr Mtt and how Logo handles 
the screen display* (You don't have to 
understand all this to use the procedures* but 
ft little education never hurt anyone#) Atari 
characters are printed in an 8 x 8 matrix* The 
data for each character are stored in sets of 8 
ispnsecaitive bytes starting at location 57344* 
(See page 143 of Ian Chad wick's Mapping the 
Atari for a more detailed description of the 
character sett) 

The patterns of "on" bits in the 8 bytes for . 
each character form the printed character on 
the screen* It is possible to copy this bit 
pattern into screen memory to draw characters 
on the sareen ^ non-text graphics modes* It 
is easiest to do this in Graphics 8> where each 
bit in the screen memory controls a single 
pixel in the display* but it is possible to 
translaite the bit patterns for other graphics 
modes* 

Atari Logo UMHr-OripMi» 7 for its screen 

displays* There are 160 columns in a Graphics 

7 display* with 40 bytes of screen memory used 
per line* 160 pixels per line divided by 40 
bytes per line gives us 4 pixels per byte* With 

8 bits in a byte» there are obviously 2 bits per 
pixel* Given 2 bits* can fipreMnt 4 
different binary numbers** 00 (=0), 01 (=1)^ 10 
(=2) and 1 1 (=3)* That is why there are four 
Goli^ 4ffliii^ing the background) in a Graphics 
7 display t and three pens with which to draw in 
Ataril^^jo* - . 

If all of the bits in a byte are zero, the 
background color will be displayed* If the bit 
pairs are all Ols* four pis^ls in the color nf 
pen 1 will appear* Bit pairs of 10 will produce 



the color of pen 2 md pairs of 1 1 will produce 
the color of pen 3* If you change the pen color 
with SETPCf of aiurse the colors of the 4st^Mm 
ttnes will change*^ You can mix the bit pairs 
within a byte however you want to produce any 
desired pattern within the resolution 
limitations of Graphics 7* 

To use this information to plot text on the 
Logo display screent we must first determine 
the desired color and starting location of the 
text so that we will know what values to put 
into the sareen memory and whM to put them* 
Next we must determine the bit pattern to be 
reproduced and convert this into the proper 
values to put into screen memory* An 8 bit 
byte in the character set will translate into 
two bytes of screen memory, since each bit in 
the character set byte will become a pate^ of 
bits in screen memory* Once the translation 
has been done, the new values must be 
*DEFOSITed into the proper location in screen 
memory* A total of 16 bytes will be put in for 
each character to be printed* This may seem a 
Uttle complext but I think that it will all 
become dear as we work through the 
procedures* 

The main procedure gets the information about 
pen color# starting location* and the text to be 
printed* 

TOPRINT.TEXT 

- 

CS 

GET*PNUM 
GET*XSTART . 
GET*Y8TAR1F 

FIND*LOC JXSTART lYSTART 
EACH*WORD GET*TEXT JLOC 
END 

The procedure GET«PNUM determines the color 
to INB uMd to prM the t«t* It assigns a 

value of one more than the pen number to a 
variable "PNUM which will later be used to 
detwimtae the vidiies to tNi •pEPOGOTM into 
screen memory* It also cheCte to make sure 
that only numbers from 0 to 2 are entered* 

TO GET*PNUM 

TYPE CENTER PEN NUMBER TO USE ( 0 - 2 
MAKE "PNUM FIRST RL 



IF NOT NUMBER? :PNUH C PR [NUMBERS 
ONLY, PLEASE] GET.PNUM J 

IF OR JPNUM < 0 JFNUM > 2 CPR CO - 2 
ONLY, PLEASE] GET.PNUM] 

MAKE "PNUM JPNUM + 1 

END 

Next we need to de^irmihe ttw vtarting 

position of the text. The following procedures 
assign the cx>lumn number to variable "XSTART 
and the row number to "YSTART. In 
GET.YSTART, if you will be using the full 
screen mod«» change the prompt to ( FS* 0-88 
). ■ , , 

TO GET.XSTART 

TYPE CENTER STARTING COLUMN (0-38 

) J] 

MAKE "XSTART FIRST RL 

IF NOT NUMBER? JXSTART CPR 
[NUMBERS ONLY, PLEASE! GET.XSTART] 

IF OR :XSTART < 0 JXSTART > 38 [PR CO - 
38 ONLY, PLEASE] GET.XSTART] 



END 



TOGETtYSTART 

TYPE CENTER STARTING ROW ( SSJ 0 - 68 



)] 



MAKE "YSTART FIRST RL 

IF NOT NUMBER? JYSTART CPR 
CNUMBERS ONLYt PLEASE] GET»YSTART] 

IF OR {YSTART < 0 {YSTART > 68 CPR CO - 
68 ONLY, PLEASE3 GET*YSTART] 

END 

The next procedure calculates the starting 
position in screen memory from the values of 
"XffTART md "YSTART* 16384 is the address 
of the beginning of screen memory for a 64K 
configuration* Change it as needed if you have 
a 32K fDonfigufAtiim (see the November 
Journal)* Since each row contains 40 bytes, we 
take the startiqn a^ldress and add 40 times the 
number of rows plus the number of columns* If 
you start your text too close to the right side 
of the screen, it will wrap i^ound, but the 
continuation will only be oiw riiw lower and 
will overwrite most of the previous text* Plan 
your screens aocordingly* 

TO FIND*LOC :COL {ROW 

MAKE "LOG 16384 + ( 40 * {ROW ) + {COL 

END 



Now that we know where to put the cpiwerted 
data, %i# tiave to get the text to be printed* 
The procedure EACH*WORD requires two 
inputs{ a list (the text) and a memory location 
(the starting position)* The input list comM 
as the output of the procedure GET*TEXT* 
EACH*WORD works on each word in the list» 
breaking it down into letters* LETTERS takes 
each letter and uses TEXT, CONVERT and 
GET*DATA to fetch the appropriate 8 bytes 
from the character set* POKE*DATA uses 
VALUE 1 and VALUE2 to covert the two 
nybbles of each of those 8 bytes into the 
proper display bytes, then puts them into 
screen memory for LETTERS* Simple, right? 
Well, maybe not, but it >tforks* Let's look at 
tip procedures{ 

• 

TO EACH.WORD JLIST JMEM , 
IFJUST» [] [STOP] 

MAKE "NEWMEM JMEM + 2 » ( 1 ♦ COUNT 
FIRST {LIST ) 

LETTERS FIRST JUST {MEM 
EACH.WORD BUTFIRST {LIST OGBIfMEM 

END " 

The variable "NEHM^ keeps track of the 
starting position for each word. Each 
dMur^ctwr will require 2 bytesf and we need a 
space between words» so we add two times wm., 
more than the number of letters in the first 
word of the text to the original starting 
position. This becomes the starting position 
for the next word of text when EACH.WORD 
calls itself as it works through the text^ 

TOGET.TEXT 

TYPE [ENTER TEXT TO BE PRINTED?] 

MAKE "TEXT RL 

IF {TEXT = [] [OP GET.TEXT] 

OP {TEXT 

END 

This procedure simply outputs the text to 
EACH.WORD. Within EACH.WORD* LETTERS 
works on the individual words in the text. 



TO LETTERS {WORD {MEM 

IF 0 = COUNT {WORD [STOP] 
POKE.DATA {MEM TEXT FIRST {WORD 
LETTERS BUTFIRST {WORD {MEM + 2 
END 
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TO TEXT {LET ' 

IF 127 < ASCII {LET CMAKE "INVERSE 1 
MAKE "LET CHAR ASCII {LET * 128] CMAKE 
"INVERSE 0] 

MAKE "ADDR 57344 + 8 » CONVERT ASCn 
JLET 

CLEAR.DATA 

OP GET43ATA :ADDR 

END 

TEXT outputs to POKE»DATA the cxinverted 
bytes to be put into screen memory* It first 
checks the ASCII value of each letter and sets 
the variable "INVERSE to 1 if the value is 
greaitvr than 127 (indicating inverse video)* In 
such a case» the variable "LET is converted to 
the corresponding normal video character* 
Otherwise, "INVERSE is set to 0. Next, 
CONVERT is used to change the ASCII value to 
the Internal Character Code (see pagf 55 in 
the BASIC Reference Manual )* 

TO CONVfiRT JVAL ' 

IF WAL < 32 COP JVAL 643 

IF JVAL < 96 [OP JVAL - 32] 

OP JVAL 

END 

This converted code is used in TEXT to 
CMkidMtB "ADDR» the address of the 
appropriate 8 bytes within the character set* 
CLEAR^DATA clears out the variable "DATAf 
which wiU hold the 8 bytes from the character 
set* 



TO CLEAR*DATA 
MAKE "DATA 11 

mo ^. ':rr\, 

GETf DATA outputs a listOonsisting of the 8 
consecutive bytes which make up the desired 
character* 

TO GET.DATA JLOC 

IF 8 = COUNT {DATA COP :DATA] 

MAKi "DATA LPUT .EXAMINE SL^OC iDATA 

OP GET.DATA JLOC + 1 

END 

This list is output through TEXT to the 
procedure F>OKE«DATA, which uses VALUEl 
and VALUE2 to amvert each character set 
byte into two bytes for the screen display and 



J)EPOSrri them into the proper locitions* 

The value of "MEM is increased by 40 each 

time POKE«DATA recycles to move the printing 
location down to the next line on the fcnNRi* 

TO POKE.DATA JMEM JUST 

IF JLIST» C3 CSTOP] 

♦DEPOSIT :MEM VALUEl FIRST JLIST 

♦DEPOSIT JMEM + 1 VALUE2 JLOW^NYBBLE 

POKE.DATA :MEM + 40 BUTFIRST !UST 



END 



+ 16 



+ 4 



+ 1 



TO VALUEl JNUM 
MAKE "V ALIO 

IF INVERSE = 1 CMAKE "NUM 255 - 
!NUM] 

IF JNUM >127 CMAKE "VALl JVALl +64 
MAKE "NUM :NUM - 128] 

IF iNUM > 63 CMAKE "VALl IVALl 

MAKE "NUM JNUM - 64] 

IF JNUM > 31 CMAKE "VALl JVALl 
MAKE "NUM JNUM - 323 

IF JNUM > 15 CMAKE "VALl JVALl 
MAKE "NUM JNUM - 163 

MAKE "LOH«MYBBLE JNUM 

END 

TO VALtrE2 INUM 

MAKE "VAL2 0 

IF JNUM > 7 CMAKE "VAL2 JVAL2 + 64 
MAKE 'HUM {HUM - 83 

W JNUM > 3 CMAKE "VAL2 JVAL2 + 16 
MAKE "NUM JNUM - 43 

IF JNUM > 1 CMAKE "VAL2 fVAL2 4 
MAKE "NUM JNUM - 23 " ' 

IF JNUM > 0 CMAKE "VAL2 JVAL2 + 1 3 

0PJVAL2»«WUM 

END 

I am sure that there is a more elegant' ^tcf to 

accomplish what is done by VALUEl and 
VALUE2f and I would love to sec it» but the 
brute force method Hiork% just fine» although ft 
little slowly* Kell> no one ever said that Logo 
wiks A, speed demon* These two procedures 
break each byte from the ehwacter set into a 
high and low nybble and convert each into a 
byte to go into the screen memory* This is 
(tone by diacking to see which bits are set <if 
bit 7 is setf the number will be greater than 
127> sincB bit 7 carries a value of 128« and so 
on) and adding appropriate values to the 
number to be output* 



These values are such that when their sum is 

multiplied by "PNUM, the resultant byte will 
produce the proper pattern and color on the 
sateen « Perhaps an example » in order here* 
Li^s say that the byte passed to VALUEl is 
36* This would mean that bits 2 and 5 are on» 
the others are off: 00100100* Let's also 

assume that this is part of a normal video 
character, so "INVERSE is not 1» Initially, 
"VALl is set to 0* UAlMEl mll go through its 
statements until it c»m^ to IP tNITM > 31, 
which will be true* "VALl will become 4 and 
"NUM wiU a lso be 4 <34 - 32}* That makes 
"LOKfMTHBLE 4f too* Let's say that we are 
using pen 0, so "PNUM equals 1* The value 
output wiU thus be 4 (00000100)* VALUE2 will 
start %dth 4 CXONr*l(YBBLE) as an input* 
"VAL2 will become 16| which will be the output 
(00010000)* 

Now let's look at the two output values in 
terms of bit pairs! 

00 00 01 00 and 00 01 00 00 

Tou lan see that there will to 2 pixels in the 

background color (00), 1 in color 1 (pen 0), 2 
more background, 1 in color 1» and 2 more 
badcground* This pattern is the SMie on/off 
pattern as originally found in the number 36* 

If mm mwm using pen :2t mo that "fWUM 

equalled^ ^, the output values would be 12 and 
48» with the following bite«ar^^#||ppist: ^ : ^ 

CX) 00 11 00 and 00 11 00 00 

The on/off pattern of pixels is the same here^ 

but the color displayed will be color 3, which 
is pen 2* Pretty neajt* huh? 

One last item needs to be explained, then I 
will leaye you to mull this over* In VALUEl, 
the value of *'NUM is subtracted from 255 if 
the inverse video flag is set* Let's look at 
the bit patterns of two numbers, 1? ang 236 
(255 - I«J 

19} 00010011 
236J 11101100 

See? One is the inverse of the other* The 
subtraction ¥iiU make the characters printed 
on the screen appear in inverse video* 




Here we go again*** 

DataiMrld, the folks who have offered such 
great deals in the past, have done it oncaB 
more* This month's specials are* 

# MPF modem - »100 

This autodial, autoanswer, direct-connect 
modem plugs into joystick port *2 on any Atari 
computer and does not require the 850 
interface* It includes the Smart Terminal 
software cartridge, which supports timpOf^kAar 
XMODEM transfer protocol* 

* Indus GT disk drive - $230 

This drive includes DOS XLf a word pnicessor» 
database, and spreadsheet, plus a carrying 
case which doubles as storage for up ta8Q 
disfiettes* It supports 4dnglef doublet and 
1050 "density and a half"* We need a minimum 
of 12 orders at this great low price* 

* OSS language cartridges - $65 each 

BASIC XL» MAC 65 assembler# and ACTION! 
cartridges - these are the actual laimiiigeif 
not the Tool Kits* 

We also have an offer straight from the folks 
at Happy Computers* 

# Happy 1050 Enhancement 

Happy 810 Enhancement - $165 each 
The 1050 version will not work on the newest 
1050 drives, which have a WD2797 operating 
chip* Older drives have a WD2793 chip* This 
will enable your 1050 to run in trye double 
density* 



These offers are for MACE members only* To 
order any of the above items, send a certified 
check or money order to the MACE PO Box* 
Your order must be received by March 8th* 
Include your name, address, telephone number 
and MACE membership number* Be sure to 
specify exactly what you are ordering* If we 
do not receive 12 orders for the Indus drives, 
we will try to extend the affer> or ii|e wiU 
return your check* 



can you trust to provide 

• Tnaining 

• Consultation 

• Service 

• Selection 

• ^ . .. ' : t 

• Price 



The Faniily Computer Center 

543-0520 

3aeS W. 1S Mile Rd., Berkley 
4 blocke eeafe of Greenfield 



SELL IT YOXJFiSELF! 

The USER-TO-USER Software Catalogue will 
offer low cost advertising for programmers 
who wish to wU directly to users* It will 
include an appendix of user grouf>s» It will 
support Atari and several other personal 
computers* All types of programs are 
welcome^ but should be priced between $5 and 
$20* The catalogue ($3-$4) will be advertised 
in national computer magazines* Advertising 
rates are f lS for op to 100 words to run for 3 
months* Club listings will be *6 per quarter* 
The first issue will be released in the summer 
of 1985* Ads must be placed by April 30# with 
a special price before March 15* For more 
information » send a business sized SASE tol 

USER-TO-USER 
PtOt Box 2605 
Eugene#OR 97402 



Mike Mitchell is sysop of the Night Line 
(11 pm - 8 am, (313) 525-5172) in Garden City, 
MI* This utility will print individual mailing 
labels and allows on-screen previewing* 



« 6RAPHICS 2: POKE 710,08POKE 752,1 

11 POSITION 2,4:? #6; " mailing " 

12 POSITION 12,41? »6;" Mbels " 

13 PQSITION^^Tft #6;" 

Is"? I? "By Mike. Mitchell % November 1 
1, 19B4*- 

16 FOR DE=1 TO 150: NEXT DE 

17 FOR RB« I TO 250; POKE 711, RB: SOUND 0 
,RB,8,8;^EXT RBl^iaND 0,0,0,0 

18 FOR SC=1 TO 4:PRINT :NEXT SC:? * 
With on Screen "Print Preview'":? :SOU 
ND 0,75, 10, 8: FOR DE«1 TO 56: NEXT DE 

19 SOUND 0,0, 0,0: FOR DE=1 TO 700: NEXT 
DE: GRAPHICS 0 

20 ? ••{CLEAR>*r608UB l*e«8P0kE 764,60: 

POKE 710,224:PQKE 712,224:D1M N$(3e),S 
$(30),CS$(30) 



24 POSITION 9,1:? " * WAILIH6 LABELS > 

25 POSITION 1,3:? " 



26 POSITION 1,6:? "Name"; : INPUT N$ 

27 POSITION 1,8s? "St.";:INPUT S« 

28 POSITION l,10i? "C«S & Zip";: INPUT 
CS$ 

29 POKE 764,255 

3© POKE 752,1: POSITION 2,15x7 "Display 
-> Screen f*rinter New Quit" 

31 R=PEEK(764):IF R<>62 THEN 33 

32 GOTO 100 

33 R=PEEK(764):IF ROl© THiH 35 

34 GOTO 200 

35 R»PEEK1764):IF R035 THEN 37 
Zb GOTO 3e«f 

37 R=PEEK(764) sIF R047 THEN 31 

38 GOTO 40e \ 
lee POKE 764,255 

101 POSITION 12,ia!pRINT N$ 

102 POSITION 12,19:PRINT S* 

103 POSITION 12,20:PRHrr CS$ 

104 POSITION 2,19:? "Preview->"' 

105 GOTO 31 

200 POKE 764,255 

201 POSITION 12,22:? "N ow Printing * 
205 TRAP (500):LPRINT N*:LPRINT S»:LPR 
INT CS»:LPRINT iLPRINT i4PRi#IT 

215 POSITION 12, 22: PRINT " {DELETE} {DEL 
ETE> {DELETE} {DELETE} {DELETE} {DELETE} {D 
ELETE} {DELETE} {DELETE) CDELETE> {DELETE) 
{DELETE} {DELETE} {DELETE} {DELETE} " : GOTO 
31 

300 ? "{CLEAR}":? *{«U.)-: POKE 764,25 

5: POKE 752,0: GOTO 24 

400 PRINT "{CLEAR}": PRINT »{BELL}"sPOK 
E 764,124;P0KE 7*2,#tPOKE ?10, l48iHE*N 

:END 

500 FOR RP=1 TO 3: POSITION 10,22:? "J 
urn on Printer! " : SOUND 0, 50, 10,8i FOR 
DE=1 TO 75: NEXT DE 

501 SOUND Q,75,l©^8:F0R DE=1 TO 75jNEX 
T I^:NEXT RP 

502 POSITION 10,22:? "{DELETE} {DELETE} 
{DELETE} {DELETE} {DELETE} {DELETE} {DELET 
E) {DELETE) {DELETE) { DELETE) ^DELETE) {DEL 
ETE} {DELETE} {DELETE} {DELETE} {DELETE} {D 

, ELETE} {DELETE}": SOUND 0,0, 0,0: GOTO 31 
1000 WEH Disable Break Key 
1010 P0KE~16,64:P0KE 53774,64 
1020 RETURN 
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by Ann McBain Ezzell 



If you read last month's column^ you should 
remember that with one 8-bit byte you can 
express 256 diff^Mt fiumbers» from 0 to 255» 
This month we will look at how these numbers 
can be used to communicate with our Ataris« 
Every UttU^§ mmtmit or other character that is 
sent to or from your computer is transmitted 
as a single byte* So that one type of computer 
amid communicate with another^ or with 
different peripherals^ an industry-wide 
uniform code was developed* It is the 
Ammricm Standard Cosim for Infbrmatiofi 
Interchange^ commonly shortened to ASCII 
(pronounced "ask-ee")» Atari has its own 
¥wiAtum of this cocNit nUed Atari ASCII 
(ATASCID* The codes for upper and lower case 
letters* numbers* and most punctuation marks 
am ttm mamm^m fm "stan«Uy^d" ASCII» but 
special graptucs and cm^l cxxtM are 
different* 

Any good rmferenoB bciok f®r the Atari should 

have a chart of ATASCII values and their 
corresponding characters* ApfMiodix C of the 
BASIC Reference Manual lists the vMues in 
decimal and hexadecimal form* You can also 
use the .ASC and CHR$ commands in Atari 
IMkMC t& Und ^ ATA^l value of a 
character or the character which corresponds 
to a given value* f^r^iixaaipj^ type 

PRINT ASCC'A") 

in immediate fM^kh the cxirr^uter #ill respond 
with a 65* If you type 

PRIHT CHR*<65) 

you will see the letter "A"« ATASCII values 
far upper case lettera range Arem ^ lcir ''A" to 
90 for "Z"J lower case values start at 97 for 
"a" and end with 122 for "z"* The other values 
less then^ 128 are for numbers^ punctuation 
marks* control and escape characters* Adding 
128 to an ATASCII value generally causes the 
character to be printed in inverse video^ iHit 
some codes have special functions* An 
example is 155* which is the code for End Of 
Line (RETURN) and is not printablet 
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If you take the time to play around with the 
CHR$ comriMd for a while^ putting in different 

values* you will probably come up with a few 

odd results* Try thisJ 

PRINT CHR*(253) 

Since the value is grei^er than I27r would 
expect to see some sort of inverse video 
character* Instead # it rings a bell! Certain of 
the ATASCII values are assooated with 
control codes such as BELL* These codes also 
have printable formsf but you have to tell the 
computer to treat them as display iteiMi rather 
than control codes* Location 766 ($2FE) is the 
display flag which the computer checks to 
detarmine how to treat these special codest If 
you POKE 766 with a non-zero value* then 
ATASCII codes 27-31* 123-127* 187-191 and 
251-255 will be printed as graphics characters* 
The aeides will perform their normal display 
screen functions if the value in 766 is zero* If 
you have Jiny of these chvacters in a string 
and want tti print ttiem* you will have to POKE 
766 with a non-zero value* Hit BREAK or 
POKE 766f0 to regain the control functions* 

. So what use is all this? You can use the CHR* 
fynction to store numeric data in string form 
wM ttie A9C command to retrieve it* If you 
GET a byte from the keyboard* you will have 
the ATASCII value of ttie typed character* 
Teu can PUT ATASCII values to tfie screen 
(OPEN a channel to the SJ device) to print 
characters* Strings can be alphabetized by 
comparing ATASCII values of the tsharicters* 
since the values increase from A to Z* 

Khftt eteiA^ie f«fti^ between ATASCII 

codes and the Atari character set? The data 
for displaying each of the 128 normal video 
Atari i^racters is stmKt starttog at location 
57344* (Each character has eight bytes* which 
allows an 8 x 8 matrix of dots*) ¥ou anight 
tMnk that the cl^acters would lie sl^yi^in 
ATASCII order* but you would be wrong* If 
you look on page 55 of the BASIC Reference 
Manual or page 180 (Appendix 101 of Jan 
Chadwick's indispensable- Mapping the Atari 
(you have bought your copy* haven't you?)* you 
will find the Internal Character Hode values 
listed* These values are primarily of interest 
if you are trying to find the 8 bytes of display 
data fcHT a particular character (perNips to 



redefine part of a diaracter set) or to assign 

colors to characters in text modes 1 and 2 
(more about this in a later column)* 

The good folks at Atari weren't satisfied with 
two coding systems for their characters} there 
is a third set of codes used by the keyboard 
handler* These codes are listed on page 50 of 
the Operating System User's Manual * The 
internal hardware valiie i^^ Ui^ kmf 
pressed can be found in register 764* If no 
key ha© been pressed* the value is 255* The 
foUcHiii^ Une wiil let you check the value for 
a particular key if you don't have access to the 
OS m^ual* 

10 PRINT PEEK(7&4)J GOTO 10 

Noi^GBi ihat the initial value is 255 and that 
once you press a key* the resultant value 
remains until you press another* SHIFT-A and 
CTRL*?A^ «iill give different values from the A 
key alone* Pressing the CTRL key sets bit 7r 
which adds 128 to the value* Bit 6 is set by 
the SEtmi^^keyt adding 64« 

Whenever the keyboard is active* its handler 
monitors location 764 for a value other than 
255* When it encounters om» it tiriies that fcey 
code and converts it to ATASCII form for 
additional |iroGessing» then restores 255 to 
await another keypress* Tou can use location 
764 yourself to check for single inputs from 
the keyboard* 

10 ? "PRESS ANY KEY TO CONTINUE" 
20 IF PEEKa64)=255 THEN 20 
30 PDIQE 764^255 

The program will loop at line 20 until a key is 
presi»d« If do not PQK£255 back into 764 
as in line 30# the character for the key pressed 
wiU b« prirMked to the screeiw You can also use 
this to cNetk #Gr taq^bci^^ periodically 
within a loop while the computer is executing 
other commands* Another way to check for a 
keypress is to OPEN a channel to the ki^yboard 
handler and use the GET command > but the 
program will dfl nothing but wait for input 
from the keyboard* 

10 OPEN #2,4,0,"KJ" 
20 GET #2,A - 
30 CLOSE #2 



TMs ««iU put the ATASCU value of the key 
pressed into the variable At with nothing 

printed to the screen* If you write a program 
which requires single keyboard inputs at 
several places^ you can put the ab<^i lines 
into a subroutine and GOSUB there every time 
you need to .read the keyboardt^^sJTou can then 
act on the value in A as needediB^ ^ 

I hope that ycnj unctwsfeaad Mali's systaoi of 
cxiding ^wr«:l«rs • littI»ii«t^ M a result of 
reading thist and that what you have learned 
Mill be of some help the next time you^t 
down to «frite a program* Once again* if 
anyone has any suggestions for topics, please 
drop me a note at the .MAC£ PO Box or give me 
a call at 646-4455. ^ ' 



clock: 



TMil ifi^Mne language routine will put a dodt 
at the top of your screen* It will continue to 
run until you press SYSTEM RESET or write to 
page 6« Tou could include it in a game progrMt 
to show elapsed time* 

19 QRAPHICS 0t REM CLOCK BY Edward Chu 

2© FOR Q=1535 TO 1676: READ A:Pjat(l Q,A: 
NEXT Q 

3e ? "LEFT MARBIN"i»lHPUI AjPOKE 0,A+6 
4:? "SET TIME HR, MIN, SEC" INPUT A,B,C 
!X=A: GOSUB 60: POKE 203, X!X=B: GOSUB 60 
4« POKE 2S2,X:X>CsGQSU8 6^«^E 253, X: 
POKE 1,PEEK<106)-4:X»U8R(1535) 
50 ? "{CLEAR}": END 

60 Y « I NT ( X / 1 0 ) » 1 6 s XsXs-viNT ( X/ 1 01 » l^+Y s R 

ETURN " 

.100 DATA 104,169,11,141,36,2,169,6,141 
, 37 , 2 , 96 , 248 , 24 , 160 , 0 , 230 , 255, 165 , 255, 
201 , 6, 144, 56, 24, 132, 255, 165, 254, 105, 1 
110 DATA 133,254,201,16,144,43,24,132, 

fe254, 165,253, 105,1, 135,253r20U96, 144,3 
0,24,132,253,165,252,105,1,133,252 
12^) DATA 201,96,144,17,24,132,252,165, 
20S,l«i» 1^ 153, 205, 2«l>iS, 144,4, 24»2e0 , 
1 3 2 , 20S, t60 , 0 , 1 65 , 203 , 2 1 6 , 32 , 1 1 8 , 6 
130 DATA 169,26,145,0,200,165,252,32,1 
18, 6, 200, 165,253,32^118, 6»ii>9, 14, 145,0 
,200, 165,254, 133,204,32,130,6,76,98 
140 DATA 228,133,204,74,74,74,74,24,10 
5,16,145,0^200,165,204,41,15,24, 105, 16 
,145,0,200,96 - 
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Hey - I got a letter! How lAot^^that? Anew 
MACE member wrote in response to my plea in 
the Febry«ry Issue for suggestions for 
Journal material* So here are the questiiJn^ 
and their answers? let this be an inspiration to 
the rest of you to dust off your Atariwriter 
cartridges and support your, postal system* 



i« Can anfWB just sit down at one of the 
perimeter tables to sell something? Or 
tables have to be reserved in advance? 

The January meeting was a special Swap 

Night; tabl^ space was available only to 
members with reservations* Look for future 
Swap Night announcements in the JouriM^ 

2* Is the Extended BASIC program in the 
February Journal available from the disk 
library? Are all Journal programs eventually 
available? 

We will try to have all Journal programs 
available in the disk library* It would be nice 
to have tfiem for sale the day that the Journal 
is distrifetrtedf but sometimes deadlines make 
that impossible* If you have a modem, you can 
download the programs from the MACE BBSs 
and several of the offlters' boards* 



3* How are submissions to the MACE Ubraries 



handled"^ 
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You can bring your programs on disk to the 
meetings and give them directly to Dave Zappa, 
Disk Librarian* You can also upload them to 
any of the MACE-affiliated boards (see inside 
back cover for a list)* Be sure to leave a 
messa^ for the sysop identifying your 
submissfofi* Any public domain programs are 
welcome* 

4* Do^ MACE have a library of back copies of 
magazines like Analog Computing and Antig? 

No* You can order copies of most back issues 
from the magazines themselves* 

5* Is there a printed roster of MACE 
members? It would be nice to have ooei seated 



by zip codet so people could find nearby 
.Atarians to trade secrets with* 

There have been several requests lately for a 
published membership list* Let's hear from 
the membership about thisr would you want 
your name and phone number or address made 
aviilable to other MACE members? Drop a 
note in thfe Suggestion Box or mail your 
opinion to the PO Box before March 1st and 
well publish the results in the next Journal* 
if too many members oppose a public 
membership list^ we could publish names and 
^yumbersT^ those interested in contacting 
other meitfcim in a spedal c^^ in the 
JpMrnal* 



6* At the meeting^ the v President said 

something about getting orders in for stuff 
apparently being ordered at special priced for 
MACE* Could these specials be noted in the 
Journal* so newcomers could find out about tMl 
latest deals? v ' 

MACE group purchases are annouw»f in the 
Journal* Occasionally a short term offer will 
tsdme in mth a closing date such that it is not 
possible to advertise the offer in the Journal* 
but we try to avoid such situations* Remember 
that these special prices are available only to 
paid up members* 

7* How is the master of the Journal printed? 
That ist which printer, interface, word 
processor, etc* It's a verv good looking 
newsletter* 

Thanks for the compliment* Articles are 
printed on MACE's trusty Atari 825 printer 
using the proportional font* JVogram listings 
and graphics are done on my Gemini- 10* Both 
printers run through an Atari 850 interface 
(one at a time, of course)* I use AtariWriter 
and its "print preview" option to get articles 
pared down to the right size* Listings are 
done with a program which I wrote that 
substitutes labels for special graphics 
diar^Kters ("UP", "CLEAR", and so on) and 
prints in a 38 column format* Most graphics 
and large text are printed with PRINTWIZ by 
Allen Miip'oware* Some of the designs are 
created with the Atari Touch Tablett 

Any more questions? Send them in! 
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Book Review by Russell Crum 

BASIC Programs for Scientists and Engineers 
by Alan R» Miller* Sybex, 1981. $16.95 

This 320 page book is somewhat unusual in 
that it addresses scientific programs in 
BASIC. Such problems are most often found in 
a "scientific language" such as FORTRAN. The 
author developed these programs in 14 years 
of teaching engineering stydents* At the time 
of publication Mr. Miller was Professor of 
Metallurgy at the New Mexico Institute of 
Mining and Technology. 

The text begins by discussing the limitations 
of some computers for sdenti^c programs due 
to inaccuracies in their BASICs. There are 
some simple routines to test floating point 
Md sine routines^ I was pleased that my 
Atari 800XL came through with flying colors! 

Ttie other chaptmrm mMmm^ mmm 

standard deviation # vector and matrix 
operations! simultaneous solution of linear 
equationSf development of a curve-fitting 
program, sorting, general least-squares 
curve-fitting* solution of equations by 
Nekton's met hod f numerical iMeprjttior^ 
nonlinear curve-fitting equations, and 
advanced applications which include the normal 
ajrve# the Gawsiiri errtir function > the gairmi 
function and Bessel functions. In addition, 
two appendices present a summary of BASIC 
statements to help those unfamiliar with some 
of the syntax. 

This is not just a cookbook of programs to be 

keyed in and run. Professor Miller presents 
the mathematical development of each program 
used to perform the operations* He frequently 
presents several programs to illustrate the 
evolution of the final form. In many cases 
more than one approach is presented due to 
potential difficulties with one version or 
another. A discussion of these difficulties is 
always given. Each chapter has several short 
problems to test the programs* answers are 
provided. 



The BASIC used in the book is Microsoft 
BASIC-80» version 5« Translation is usually 
straightfor»#ard« BASIC^SCL required no 
translation at all in many cases. For regular 
Atari BASIC # the majority of the translations 
involve prompted inputs (i^ IMPUT ^prompt", 
variable), formatted print statements, and 
string dimensioning* A couple of the programs 
use the DBF FN statementt wMch cm tie 
replaced with a variable assignment and a 
GOSUB followed by variable reassignn^nt* 

The programs throughout the book follow a 
structured programming approach so that it is 
quite simple to combine them* For^ t^immplef 
lines 1-499 are always main program, 500-880 
are input routines^ and so on* In factt as the 
text proceedSf many programs make yie of 
sections from earlier ones. These are 
indicated as such instead of being repeated at 
each occurrence* The author also clearly 
defines his variables in REM statements at 
the beginning of each program* These remarks 
provide two letter vmri^Mmmmm iu^^m 
suggested "meaningful" names (e.g. D7 and 
DELTA)* The listings use the two letter 
names* I #ound it easier to enter the program 
as listed, LIST it to disk and use 
AtariWriter's search and replace function to 
change to the alternate names* I prefer to 
use significant variable names rather than 
short forms which may be difficult to identify* 

I have found working through the book to be 
quite interesting* It often brought back 
college memoriM of 20 years ago* How I wish 
I had had something like this and my computer 
then! My son has been able to use the 
simultaneous equation programs to check his 
Algebra II homework, also. 

Hho stKHild buy this book? I would net 

retommend it to anyone who hasn't completed 
at least two years of algebra and 
trigonometry* A background in calculus would 
also be useful before tackling Professor 
Miller's explanations. The text is quite good, 
but it is not a math textbook* For those who 
would like to learn how to program some of 
these operations or who have a vocational 
application, I highly recommend the book*. You 
will find that running some of these programs 
clearly demonstrates that the Atari is capable 
of much more than nice graphics and games! 



CASeETTE CORNER 

by Mike Landis 



evi^yone knowst disk drives have oome way 
dawn in pric»# rv» heard t*i«t you can find 
lOSO's for under $150»00» Well, that's along 
Wky from the *589*00 I paid for my 810 several 
yeare a§o! Cassette drivM mmm a hundred 
and some dollars? now you can buy a disk drive 
for that price! What I am getting at is, the 
cassette library is not in big demands I tii^e 
talked it over with the MACE Board members 
and we have agreed that we are no longer 
going to stock the cassette libraryt This does 
not mean they we are not going to handle 
cassettes} we will make them available on a 
special order basis only* By not keeping an 
inventory of cassettes, we will save MACE 
over $1000*00 in a year's time* Now, I know 
several ways we could spend $1000*00 to help 
MACE members! The disk and cassette library 
will publish a combined catalog* All you have 
to do when you iMiit iu|irogram is order the 
cassette from the catalog and it i«ill be miiM 
to ycMi in about 10 days* 

The next question is what are we going to do 
with all of the cassettes we now have in 
stock? Good iiuestion! He are going to s^ 
them at *3*00 each, until we run out# Hot i»ily 
are we going to sell them that cheaply, but if 
you buy them in quantity we will discount them 
even more* Here is an example of quantity 
discounts* - 

4 Tapes for Only »10*00 
9 Tapes for Only $20*00 , 
14 Tapes for Only *30f00 

To let you know how good these prices are, 
a»er these tapes are gone^ the special order 
price will be $6*00* If y€U bought 14 special 
order tapes it would cost you *84*00, so you 
cmM save over $50*00 by buying in quantity 
now* 

lHj&m you are thinking, what's Mike going to do 
once he is no longer sellir^ (^tssettes back in 

the corner? You will never guess! I will be 
selling blank dUks! MACE has received a 
special discount on a large quantity of blank 
disks* We are gpinfl to give you a price that 



you will not believe! Ten blank disks with 
covers for only ♦10*00b Can yai# believe that?) 

Not only do I get to sMl blank disksr I get to 
handle the raffle tickets! At our March 
meeting we are going to raffle an Atari 400^ 
with a BA^C cartridget Xick^te are 50 gsnts 
each or 3 for $1*00* You can't beat that price! 
Even if you spend $5*00 and get 15 chances to 
win, isn't it wjrth it just helping MACE? Of 
course it isi 

Well I hope I've answered all the questions* I 
will be in the corner providing cassettes^ 

blank disks, raffle tickets and answering 
questions* See you therfl 



by Kirk Revitzer 



Well, I tried out the Happy Enhancement in my 
Atari 1050 and here's what I fdundt it works 
great! The Happy board requires that t^o 
chips be removed from the drive and it plugs 
ir^ one of the siickets» 7he. whole job 
about 20 minutes* 

The software supplied was Versupn 6*0 which 
is compatible with the 1050 only* It does not 
support multi drive (Happy) use nor does it 
have features 1^ Happy Compactor or Harfi 
DOS* But, the enclosed warranty card says 
Version 7*0 will be shipped MpPD registration* 

The Happy backup and special recovery 
features allowed me to back-up any disk in my 
library* No problems there* 

Now for the best part! I booted up my version 
of "MYDOS" by Wordmark and inserted a 
double density disk in the drive* When I 
selected (A) for a directory the drive 
automatically switched densitiM md away we 
went* The Happy, I am told, supports singlet 
DOS 3*0, and double density when used in the 
1Q5Q driye« I did not try a DOS 3*0 disk as I 
don^t have any* The density capabilities are 
not mentioned in the documentation* 

• 

Well, anyhowi I'm happy! 
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COJStXEST RE3XJLXS 



Hellf the postman didn't exactly get a hernia 
cwrying in the sacto of responses to otir 

January contests* In fact, there were only 
two entries for Contest At and none for 
Contest B* So much for group participation 
events in the Journalt 

* CONTEST A # 

Bob Retelle of Ypsilanti, MI recognized the 
data as a combination of musical notes and 
timing delays which played the Alphabet Song 
(or Twinkle^ Twinkle Little Star)* For each 
pair of numbersf the first was to be put into a 
SOUND statement! 

SO*0,A»10,8 

and the second was to be used in a timing 
delay to sound the note! 

FOR J=0 TO 10*BJ NEXT J 

Hugh McLean^ sysop of Bunky's Board 
(546~3689)t also recognized the data as music* 
but chose to use the timing delay numbers as 
color intensities to flash a little star on the 
screen while the music played* Close enough* 

Both entrants will receive a certificate good 

for a free disk or tape from the MACE library* 
(I was going to choose randomly from among 
ALL the correct answers^ but what the heck} 
they deserve something for caring enough to 
enter* Phooey on all the rest of you party 
poopers!) 

* CONTEST B * 

There was a hint in this problem - the part 
where the sorcerer put a "hex" on the data* If 
you take each number* convert it to its 
hexadecimal form* switch the digits* then 
convert it back to decimal# you will have thg 
AT ASCII values for the letters in tte 
message* For example* take the first "hexed" 
value! 132* The hex form of 132 is *84* 
Reverse the digits to get $48f which is decimal 
72* the ATASCII value of the letter "H". Get 
it? Now you can figure out the message 
^i.flrself« 



COtJISIXOOIxrJSI TIMER 

by Jim Wilson 

This si*routine will accurately define a ctelay 
in your program by using one of the countdown 
timers provided by the operating system* 
Using the system timers will ensure that the 
delays you design into your Atari BASIC 
program will remain constant when run from a 
faster executing language such as BASIC XL* 
This technique is also effective if you wish to 
speed up execution of the rest of your prc^ram 
with a BASIC COMPILER* 

Poke a value into COUNTDOWN TIMER 3 
(LOCATION 540»541) an*d it wiU count 
backwards to zero at the rate of 60 units 
(JIFFIES) per second* Enter the timer 
subroutine with the variable SECONDS set to 
the desired value (SECONDS=*5* SECONDS=10* 
etc*)* SECONDS can be any value up to 1092 
which wiU yi^ a delay of over 18 MINUTfiSt 

The operating system uses timer 3 to OPEN 
the cassette recorder and to set the ta^th of 
time to read and write tape headers* If you 
OPEN a channel to the cassette recorder while 
you are using this timer routine^ the value in 
locations 540 and 541 will be lost* There are 
also timers available at locations 538/539^ 
542/543» and 544/545» 

450 REM *%%%* Sample Execution %%%%* 

460 REM 

470 FOR 1=1 TO 10 

480 ? I;" SECOND DELAY" 

490 SECONDS=I 

500 GQSUB 590 

510 NEXT I 

520 END 

530 REM %%%%% Timer Subroutine tttt* 

540 REM * * 
550 REM «Set SEC£WDS,,prior to entr^t 

" 560 REM % * 

570 REM %t***tt%n%%%t*t%%%t*tnn*t 

SB* REM 

590 TIMER=540:WAIT«SECONDS«60 

600 WH=INT(WAIT/256) :WL=WAIT-WH*256 . 
610 POKE TIMER, WL:POKE TIMER+l,WH 
620 IF PEEK(T1«ER+1) THEN 620 
630 IF PEEK (TIMER) THEN 630 - 
640 R£TU8N 
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